home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / c01oop.zip / ADAWKBK / SOL2-5.ADA < prev    next >
Text File  |  1992-08-25  |  790b  |  36 lines
  1. -- Problem 2.5
  2. -- by Rick Conn
  3. with Text_IO;
  4. procedure Main is
  5.  
  6.   type BOOLEAN_VECTOR is array (1..4) of BOOLEAN;
  7.   T : constant BOOLEAN := TRUE;
  8.   F : constant BOOLEAN := FALSE;
  9.  
  10.   A : constant BOOLEAN_VECTOR := (F, F, T, T);
  11.   B : constant BOOLEAN_VECTOR := (F, T, F, T);
  12.  
  13.   B_AND : BOOLEAN_VECTOR;
  14.   B_OR  : BOOLEAN_VECTOR;
  15.   B_XOR : BOOLEAN_VECTOR;
  16.  
  17.   package Bool_IO is new Text_IO.Enumeration_IO (BOOLEAN);
  18.  
  19. begin -- Main
  20.  
  21.   B_AND := A and B;
  22.   B_OR  := A or B;
  23.   B_XOR := A xor B;
  24.  
  25.   Text_IO.Put_Line ("A     B     and   or    xor");
  26.   for I in 1 .. 4 loop
  27.     Bool_IO.Put (A(I), 6);
  28.     Bool_IO.Put (B(I), 6);
  29.     Bool_IO.Put (B_AND(I), 6);
  30.     Bool_IO.Put (B_OR(I), 6);
  31.     Bool_IO.Put (B_XOR(I), 6);
  32.     Text_IO.New_Line;
  33.   end loop;
  34.  
  35. end Main;
  36.